home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / iguana / incosrc / incosrc.exe / MIRRBALL / B2R.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-16  |  446b  |  29 lines
  1.  
  2.  
  3. USES Objects;
  4.  
  5. VAR
  6.   fi   : TDosStream;
  7.   pal  : ARRAY[0..255,1..3] OF BYTE;
  8.   i    : WORD;
  9.   v    : BYTE;
  10.  
  11. BEGIN
  12.  
  13.   fi.Init({'d:\b3.col'} 'd:\b5.col', stOpenRead);
  14.   fi.Read(pal, 768);
  15.   fi.Done;
  16.  
  17.   FOR i := 0 TO 255 DO
  18.     BEGIN
  19.       v := pal[i, 1];
  20.       pal[i, 1] := pal[i, 2];
  21.       pal[i, 2] := pal[i, 3];
  22.       pal[i, 3] := v;
  23.     END;
  24.  
  25.   fi.Init('ball.col', stCreate);
  26.   fi.Write(pal, 768);
  27.   fi.Done;
  28.  
  29. END.